home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2003 #3 / K-CD-3-2003.ISO / WinXP Service Pack 1 / xpsp1_sv_x86.exe / ipp_0014.as_ / ipp_0014.asp
Encoding:
Text File  |  2002-08-01  |  1.5 KB  |  62 lines
  1. ∩╗┐<%@ CODEPAGE=65001 %>
  2. <%
  3. ' Replace the above line with your localized code page number
  4. '------------------------------------------------------------
  5. '
  6. ' Microsoft Internet Printing Project
  7. '
  8. ' Copyright (c) Microsoft Corporation. All rights reserved.
  9. '
  10. '------------------------------------------------------------
  11.     Option Explicit
  12. %>
  13. <!-- #include file = "ipp_util.inc" -->
  14. <%
  15.     Response.Expires = 0
  16.     Const L_TitlePrintError_Text = "Internet-utskriftsfel"
  17.     Const L_UnknownErr_Message = "Ett ok├ñnt fel intr├ñffade. Kontakta administrat├╢ren."
  18. %>
  19.  
  20. <html>
  21.  
  22. <head>
  23. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
  24. <%=SetCodePage%>
  25. <title><% =Write(L_TitlePrintError_Text) %></title>
  26. </head>
  27.  
  28. <body>
  29.  
  30. <%=Write(CLIENT_FONT)%><p>
  31. <%Const L_PrtFail_Text = "<H2>Skrivarinstallationen misslyckades</H2>"%>
  32. <%=Write(L_PrtFail_Text)%>
  33. </p>
  34. <font size=2>
  35. <%
  36.     Dim iCode
  37.     Dim strError
  38.     iCode = Request("code")
  39.     If iCode <> "" Or iCode <>"0" Then
  40.         Dim objPrinter
  41.  
  42.         Set objPrinter = Server.CreateObject (PROGID_HELPER)
  43.         On Error Resume Next
  44.         Err.Clear
  45.         strError = objPrinter.ErrorDscp (iCode)
  46.         If Err.Number <> 0 Then
  47.             Const L_ErrMsg_Text = "Felkod = %1"
  48.             strError = RepString1(L_ErrMsg_Text,Hex (iCode))
  49.         End If
  50.     Else
  51.         strError = L_UnknownErr_Message
  52.     End If
  53.  
  54.     Response.Write (Write (strError))
  55.  
  56. %>
  57. </font>
  58. <%=END_FONT%>
  59.  
  60. </body>
  61. </html>
  62.